macro 'digitize xy         [1]';
var
   i,j,x,y:integer;
XCount:integer;

begin

SetUser1Label('x');
SetUser2Label('y');
SetOptions('User1 User2 ');
XCount:=rCount+1;

GetMouse(x,y);
rUser1[XCount]:=x;
rUser2[XCount]:=y;
Measure;
ShowResults;

end;



macro 'end 9999          [2]';
var  
   i,j,x,y:integer;
XCount:integer;

begin

SetUser1Label('x');
SetUser2Label('y');
SetOptions('User1 User2 ');
XCount:=rCount+1;

rUser1[XCount]:=9999;
rUser2[XCount]:=9999;
Measure;
ShowResults;

end;


macro 'fill area             [3]';
var 
   i,j,x,y:integer;
XCount:integer;

begin

SetUser1Label('x');
SetUser2Label('y');
SetOptions('User1 User2 ');
XCount:=rCount+1;

GetMouse(x,y);
SetForeGroundColour(128);
AutoOutline(x,y);
Fill;
end;


macro 'end 9999 & fill  [4]';
var
   i,j,x,y:integer;
XCount:integer;

begin

SetUser1Label('x');
SetUser2Label('y');
SetOptions('User1 User2 ');
XCount:=rCount+1;

rUser1[XCount]:=9999;
rUser2[XCount]:=9999;
Measure;
ShowResults;


GetMouse(x,y);
SetForeGroundColour(128);
AutoOutline(x,y);
Fill;
end;
